home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / text / casslabel / drivers / post.drv < prev    next >
Encoding:
Text File  |  1994-06-05  |  606 b   |  22 lines

  1. /*****************************************
  2.  *                                       *
  3.  * Post-Driver, Version 1.0 (05.06.1994) *
  4.  *                                       *
  5.  *****************************************/
  6.  
  7. /*************
  8.  * Arguments *
  9.  *************/
  10. ARG filename dirname
  11.  
  12. filename = TRANSLATE(filename, XRANGE('a','z'), XRANGE('A','Z'))
  13. dirname = TRANSLATE(dirname, XRANGE('a','z'), XRANGE('A','Z'))
  14. postfile = filename || ".ps"
  15.  
  16. ADDRESS COMMAND "Delete >NIL:" postfile
  17. ADDRESS COMMAND Rename filename postfile
  18.  
  19. ADDRESS COMMAND "SYS:TeX/Post/Post SYS:TeX/Post/init.ps" postfile "SCREEN"
  20.  
  21. EXIT
  22.